home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 94
/
64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64
/
turtle-demo 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
388b
|
16 lines
1 rem turtle-demo: 'drachen'
2 rem n. heusler 11.91
3 :
10 sys49152
20 !init
30 input"wert l 12[157][157][157][157]";l:ifl>12then30
40 !graphics:!pen0:!walk32:!turnl90:!walk80:!pen1
50 gosub100
60 poke198,.:wait198,1:poke198,.:!text:end
100 ifl=0then:!walk3:goto300
120 ifl<0then240
140 !pushl:l= l-1:gosub100:!pulll:!turnl90:!pushl:l=1-l:gosub100:!pulll
190 goto300
240 !pushl:l=-1-l:gosub100:!pulll:!turnr90:!pushl:l=1+l:gosub100:!pulll
300 return